home *** CD-ROM | disk | FTP | other *** search
/ Shareware Super Platinum 8 / Shareware Super Platinum 8.iso / mac / PROGTOOL / FGL304D.ZIP;1 / EXBAS.ARJ / FGDOC / EXAMPLES / BASIC / 07-02.BAS < prev    next >
Encoding:
BASIC Source File  |  1994-01-24  |  585 b   |  38 lines
  1. REM $INCLUDE: 'fastgraf.bi'
  2.  
  3. DEFINT A-Z
  4.  
  5. DECLARE SUB PutString(CharString$,Row,Column)
  6.  
  7. OldMode = FGgetmode
  8. FGsetmode 3
  9. FGcursor 0
  10.  
  11. FGsetattr 14, 0, 0
  12. CALL PutString("yellow",0,0)
  13.  
  14. FGsetattr 10, 0, 0
  15. FGwhere Row, Column
  16. CALL PutString("green",Row,Column+1)
  17.  
  18. FGsetattr 12, 0, 1
  19. FGwhere Row, Column
  20. CALL PutString("blinking",Row,Column+1)
  21.  
  22. FGsetattr 12, 7, 0
  23. CALL PutString(" Press any key. ",24,0)
  24. FGwaitkey
  25.  
  26. FGsetmode OldMode
  27. FGreset
  28.  
  29. END
  30.  
  31.  
  32. SUB PutString(CharString$,Row,Column)
  33.  
  34. FGlocate Row, Column
  35. FGText CharString$, LEN(CharString$)
  36.  
  37. END SUB
  38.